perm filename RV[JC,MUS] blob
sn#064060 filedate 1972-04-14 generic text, type T, neo UTF8
00100 ARRAY D1(1603),D2(1869),D3(2055),D4(2253),D5(349),D6(115),D7(39);
00200 VARIABLE /R;
00300 SRATE←25000;MAG←512/SRATE;SPEED←5;NCHNS←4;REVINIT←1;R←0;
00400 COMPILE;
00500 INSTRUMENT RV;
00600 REV2(R,347,.7,D5);
00700 REV2(U1,113,.7,D6);
00800 REV2(U2,37,.7,D7);
00900 REV1(U3,1601,.802,D1);
01000 REV1(U3,1867,.773,D2);
01100 REV1(U3,2053,.753,D3);
01200 REV1(U3,2251,.733,D4);
01300 OUTA←OUTA+U4+U5+U6+U7;
01400 OUTB←OUTB-U4-U5-U6-U7;
01500 OUTC←OUTC-U4+U5-U6+U7;
01600 OUTD←OUTD+U4-U5+U6-U7;
01700 R←0;
01800 END;
01900 FINISH;